home *** CD-ROM | disk | FTP | other *** search
/ Software Vault: The Gold Collection / Software Vault - The Gold Collection (American Databankers) (1993).ISO / cdr50 / subdoc.zip / SDSAMPLE.BAS < prev    next >
BASIC Source File  |  1993-02-04  |  650b  |  19 lines
  1. DefInt A-Z
  2. Global Const twipsperinch = 1440    ' how many twips in one inch
  3. Global Program_state%               ' 1=In progress (signal for stop/go button)
  4. ''  This is only a demo so don't worry about the
  5. ''  unfortunate proliferation of odd variables in
  6. ''  strange places getting up to curious things.
  7. Type TILE
  8.     Left As Integer
  9.     top As Integer
  10.     right As Integer
  11.     bottom As Integer
  12.     letter As String * 1    ' will be shown on face
  13.     clr As Long             ' background colour
  14. End Type
  15. ''  Tile is a bit like a scrabble tile with one letter on it.
  16.  
  17. Global Const Tilefontsize = 13      ' how big will letters be?
  18.  
  19.